function [ask_list]=outofr(ask_list,r)
    if(~length(ask_list))
    for i=1:length(ask_list)
        i
        if ask_list(i)==r
            ask_list(i)=[];
        end
    end
    end
end